VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "dmSysID"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private A_SubSystem As String
Private A_SystemUser As String
Private A_SystemUserName As String

Private A_ComputerName As String
Private A_ComputerUserName As String
Private A_IP As String

Private A_DBInfo As dmDBInfo

Public Property Let iP(ByVal vData As String)
    A_IP = vData
End Property

Public Property Get iP() As String
    iP = A_IP
End Property



Public Property Let SystemUserName(ByVal vData As String)
    A_SystemUserName = vData
End Property

Public Property Get SystemUserName() As String
    SystemUserName = A_SystemUserName
End Property


Public Property Let ComputerUserName(ByVal vData As String)
    A_ComputerUserName = vData
End Property

Public Property Get ComputerUserName() As String
    ComputerUserName = A_ComputerUserName
End Property




Public Property Let ComputerName(ByVal vData As String)
    A_ComputerName = vData
End Property

Public Property Get ComputerName() As String
    ComputerName = A_ComputerName
End Property



Public Property Set DBInfo(ByVal vData As dmDBInfo)
    Set A_DBInfo = vData
End Property

Public Property Get DBInfo() As dmDBInfo
    Set DBInfo = A_DBInfo
End Property

Public Property Let SubSystem(ByVal vData As String)
    A_SubSystem = vData
End Property

Public Property Get SubSystem() As String
    SubSystem = A_SubSystem
End Property

Public Property Let SystemUser(ByVal vData As String)
    A_SystemUser = vData
End Property

Public Property Get SystemUser() As String
    SystemUser = A_SystemUser
End Property




